home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / x11 / twm_930531.lha / twm / lex.l < prev    next >
Text File  |  1993-05-30  |  4KB  |  101 lines
  1. %{
  2. /*****************************************************************************/
  3. /**       Copyright 1988 by Evans & Sutherland Computer Corporation,        **/
  4. /**                          Salt Lake City, Utah                           **/
  5. /**  Portions Copyright 1989 by the Massachusetts Institute of Technology   **/
  6. /**                        Cambridge, Massachusetts                         **/
  7. /**                                                                         **/
  8. /**                           All Rights Reserved                           **/
  9. /**                                                                         **/
  10. /**    Permission to use, copy, modify, and distribute this software and    **/
  11. /**    its documentation  for  any  purpose  and  without  fee is hereby    **/
  12. /**    granted, provided that the above copyright notice appear  in  all    **/
  13. /**    copies and that both  that  copyright  notice  and  this  permis-    **/
  14. /**    sion  notice appear in supporting  documentation,  and  that  the    **/
  15. /**    names of Evans & Sutherland and M.I.T. not be used in advertising    **/
  16. /**    in publicity pertaining to distribution of the  software  without    **/
  17. /**    specific, written prior permission.                                  **/
  18. /**                                                                         **/
  19. /**    EVANS & SUTHERLAND AND M.I.T. DISCLAIM ALL WARRANTIES WITH REGARD    **/
  20. /**    TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES  OF  MERCHANT-    **/
  21. /**    ABILITY  AND  FITNESS,  IN  NO  EVENT SHALL EVANS & SUTHERLAND OR    **/
  22. /**    M.I.T. BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL  DAM-    **/
  23. /**    AGES OR  ANY DAMAGES WHATSOEVER  RESULTING FROM LOSS OF USE, DATA    **/
  24. /**    OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER    **/
  25. /**    TORTIOUS ACTION, ARISING OUT OF OR IN  CONNECTION  WITH  THE  USE    **/
  26. /**    OR PERFORMANCE OF THIS SOFTWARE.                                     **/
  27. /*****************************************************************************/
  28.  
  29. /***********************************************************************
  30.  *
  31.  * $XConsortium: lex.l,v 1.62 89/12/10 17:46:33 jim Exp $
  32.  *
  33.  * .twmrc lex file
  34.  *
  35.  * 12-Nov-87 Thomas E. LaStrange        File created
  36.  *
  37.  ***********************************************************************/
  38.  
  39. /* #include <stdio.h> */        /* lex already includes stdio.h */
  40. #include "gram.h"
  41. #include "parse.h"
  42. extern char *ProgramName;
  43.  
  44. extern int ParseError;
  45.  
  46. %}
  47.  
  48. string                \"([^"]|\\.)*\"
  49. number                [0-9]+
  50. %%
  51. "{"                { return (LB); }
  52. "}"                { return (RB); }
  53. "("                { return (LP); }
  54. ")"                { return (RP); }
  55. "="                { return (EQUALS); }
  56. ":"                { return (COLON); }
  57. "+"                { return PLUS; }
  58. "-"                { return MINUS; }
  59. "|"                { return OR; }
  60.  
  61. [a-zA-Z\.]+            { int token = parse_keyword (yytext, 
  62.                                  &yylval.num);
  63.                   if (token == ERRORTOKEN) {
  64.                       twmrc_error_prefix();
  65.                       fprintf (stderr,
  66.                        "ignoring unknown keyword:  %s\n", 
  67.                            yytext);
  68.                       ParseError = 1;
  69.                   } else 
  70.                     return token;
  71.                 }
  72.  
  73. "!"                { yylval.num = F_EXEC; return FSKEYWORD; }
  74. "^"                { yylval.num = F_CUT; return FSKEYWORD; }
  75.  
  76. {string}            { yylval.ptr = (char *)yytext; return STRING; }
  77. {number}            { (void)sscanf(yytext, "%d", &yylval.num);
  78.                   return (NUMBER);
  79.                 }
  80. \#[^\n]*\n            {;}
  81. [\n\t ]                {;}
  82. .                {
  83.                   twmrc_error_prefix();
  84.                   fprintf (stderr, 
  85.                        "ignoring character \"%s\"\n",
  86.                        yytext);
  87.                   ParseError = 1;
  88.                 }
  89. %%
  90.  
  91. /* yywrap() { return (1); } */
  92.  
  93. #undef unput
  94. #undef input
  95. #undef output
  96. #undef feof
  97. #define unput(c)    twmUnput(c)
  98. #define input()        (*twmInputFunc)()
  99. #define output(c)    TwmOutput(c)
  100. #define feof()        (1)
  101.